library(tidyverse)

Memes

Option 1: memer

The memer package by Sam Tyner allows you to replace text in popular memes with your own.

install the package

devtools::install_github("sctyner/memer")

load the package, get a list of available memes

library(memer)
meme_list()
##  [1] "AllTheThings"       "AmericanChopper"    "AncientAliens"     
##  [4] "BatmanRobin"        "DistractedBf"       "EvilKermit"        
##  [7] "ExpandingBrain"     "FirstWorldProbs"    "FryNotSure"        
## [10] "HotlineDrake"       "IsThisAPigeon"      "NoneOfMyBusiness"  
## [13] "CheersLeo"          "OneDoesNotSimply"   "DosEquisMan"       
## [16] "OffRamp"            "OprahGiveaway"      "Philosoraptor"     
## [19] "PicardFacePalm"     "PicardWTH"          "Purples"           
## [22] "PutItPatrick"       "Rainbow"            "ShiaJustDoIt"      
## [25] "Spongebob"          "SuccessKid"         "ThatWouldBeGreat"  
## [28] "TheRockDriving"     "ThinkAboutIt"       "TrumpBillSigning"  
## [31] "TwoButtonsAnxiety"  "WhatIfIToldYou"     "CondescendingWonka"
## [34] "YoDawg"             "Y-U-NOguy"

choose a meme

meme_get("OprahGiveaway")

replace the text with your own

meme_get("OprahGiveaway") %>%
  meme_text_bottom("Happy Birthday \n R-Ladies Sydney!")

Some memes have more than 1 text field

meme_get("TrumpBillSigning") %>% meme_text_trump("R-Ladies Sydney", "Happy Birthday")

Option 2: make new memes

meme package

Vignette

install package

devtools::install_github("GuangchuangYu/meme")
## Skipping install of 'meme' from a github remote, the SHA1 (2b8e6d15) has not changed since last install.
##   Use `force = TRUE` to force installation

load the package

library(meme)

Ran into problems with sysfonts package. Fix install XQuartz.

pic1 <- system.file("success.jpg", package="meme")
 meme::meme(pic1, "code", "all the things!")

meme::meme("kitten.jpg", "code", "all the things!")

Option 3: leeper meme package

Not being maintained, API to memecaptain for templates doesnt work. Looking for a new maintainer! https://github.com/leeper/meme

memery package: https://github.com/leonawicz/memery

note also need showtext and sysfonts packages

Mario

https://github.com/rasmusab/beepr

library(beepr)

beep(8)

“ping” “coin” “fanfare” “complete” “treasure” “ready” “shotgun” “mario” “wilhelm” “facebook” “sword”

Messages

devtools::install_github(“gaborcsardi/praise”)

library(praise
        )

praise()
## [1] "You are magnificent!"

Goodshirt API to quotes from The Good Place

devtools::install_github("adam-gruer/goodshirt")
## Skipping install of 'goodshirt' from a github remote, the SHA1 (72531052) has not changed since last install.
##   Use `force = TRUE` to force installation
library(goodshirt)
library(cowsay)
library(magrittr)
## 
## Attaching package: 'magrittr'
## The following object is masked from 'package:purrr':
## 
##     set_names
## The following object is masked from 'package:tidyr':
## 
##     extract
soul_squad() 
## 
##  She's my everything. She makes the bass drop in my heart. 
## 
##  ~ Jason

More